
 
 
 
 
 
 
 
 
 
 
 
     #" 
 
 
 
       )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
 
 
 
 
 
 
                                                                     
 
                                                                     
 
 
 
                                                                     
 
 
 
                                                                     
 
                                                             !,
 
 
 
                                                                     
 
 
 
                                                       !  /+
 
                                             "  5       4     '!",  1 
 
 
 
 
 
                                               )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
                                                           !"  4 7 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                                 1 9 8 2 
 
                                                                                                                   "       
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         1 .   "&/
 
 
 
 
 
 
 
 
 
                   #"     !  /+  +!    # /
 
     -   !,.   !  ! "!/    .     !#    !/
 
     /"  #"  K . J E N S E N , N . W I R T H   " P A S C A L   U S E R     M A N U A L     A N D     R E P O R T " 
 
     ( 1 9 7 8 ) ,   " +     !!" ",    '!"  !" "      /+
 
     !,. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           ! 
 
 
 
 
 
 
 
     1 .       "&/      . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     2 
 
 
 
 
 
     2 .     )  !/. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     5 
 
 
 
 
 
     3 .     !!  !/  /+. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     9 
 
 
 
 
 
     4 .     -"+    !+  !" #&  /+. . . . . . . . . . . . . . . . . . . . .   1 0 
 
 
 
 
 
     5 .     -"+    / +  +%. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 1 
 
 
 
     5 . 1 .        /  !"". . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 1 
 
     5 . 2 .        /  "  +%. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 1 
 
     5 . 2 . 1 .        !"+  "+. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 2 
 
     5 . 2 . 1 . 1 .   !/ +  "+. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 2 
 
     5 . 2 . 1 . 2 .   !" "+  !/ +  "+. . . . . . . . . . . . . . . . . . . . . . . . . . .   1 2 
 
     5 . 2 . 1 . 3 .   "   ". . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 3 
 
     5 . 2 . 2 .       !" #"# +  "+. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 3 
 
     5 . 2 . 2 . 1 .   "+  !!. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 4 
 
     5 . 2 . 2 . 2 .   "+  !. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 4 
 
     5 . 2 . 2 . 3 .   "+  !". . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 5 
 
     5 . 2 . 2 . 4 .   "+  $. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 6 
 
     5 . 2 . 3 .       "+  #". . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 6 
 
     5 . 3 .       !        +%. . . . . . . . . . . . . . . . . . . . . .   1 7 
 
     5 . 3 . 1 .       +   +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 8 
 
     5 . 3 . 2 .       "+   +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 8 
 
     5 . 3 . 2 . 1 .    +  !  !. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 8 
 
     5 . 3 . 2 . 2 .   #"  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 9 
 
     5 . 3 . 2 . 3 .   #$ +  $. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 9 
 
     5 . 3 . 3 .       ##+   +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 9 
 
 
 
     6 .     + /. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 0 
 
 
 
     6 . 1 .        &/  " &/. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 1 
 
     6 . 2 .        &  "  #/. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 1 
 
     6 . 3 .        &  "  !/. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 1 
 
     6 . 4 .       '!   &  !  &+  '!. . . . . . . . . . . . . . . . . . .   2 2 
 
     6 . 5 .         "(. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 2 
 
     6 . 6 .       #"  $#&. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 3 
 
     6 . 7 .        !+   "   " @ " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 3 
 
 
 
     7 .      " +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 4 
 
 
 
     7 . 1 .        !"+   " +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 4 
 
     7 . 1 . 1 .        " +   !/. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 4 
 
     7 . 1 . 2 .        " +   &# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 5 
 
     7 . 1 . 3 .        " +   %. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 6 
 
                                                               C T P .   4   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     7 . 1 . 4 .       #!"   " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 6 
 
     7 . 2 .       !" #"# +   " +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 6 
 
     7 . 2 . 1 .       !!"+   " +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 7 
 
     7 . 2 . 2 .       #!+   " +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 7 
 
     7 . 2 . 2 . 1 .    "   " I F " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 7 
 
     7 . 2 . 2 . 2 .    "   " C A S E " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 8 
 
     7 . 2 . 3 .       &+. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 9 
 
     7 . 2 . 3 . 1 .    "   " W H I L E " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 9 
 
     7 . 2 . 3 . 2 .    "   " R E P E A T " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 0 
 
     7 . 2 . 3 . 3 .    "   " F O R " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 0 
 
     7 . 2 . 3 . 4 .    "   E X I T . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 1 
 
     7 . 2 . 4 .        "     !/  " W I T H " . . . . . . . . . . . . . . . . . . . . . . . . .   3 2 
 
 
 
     8 .     O !   &# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 3 
 
 
 
     8 . 1 .       !" "+   &# +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 5 
 
     8 . 1 . 1 .        &# +   "+  !  $. . . . . . . . . . . . . . . . . . . . . . . . . . .   3 5 
 
     8 . 1 . 2 .       ",+   #"+  /  " R E S E T "     " R E W R I T E " . . . . .   3 6 
 
     8 . 1 . 3 .        &#   '!   )/. . . . . . . . . . . . . . . . . . .   3 7 
 
     8 . 1 . 4 .       $+   /  !"#. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 8 
 
     8 . 2 .        &# +  / +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 8 
 
     8 . 2 . 1 .        &#   R E A D . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 9 
 
     8 . 2 . 2 .        &#   R E A D L N . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 9 
 
     8 . 2 . 3 .        &#   W R I T E . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 9 
 
     8 . 2 . 4 .        &#   W R I T E L N . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 0 
 
     8 . 2 . 5 .       / +  !  " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 1 
 
     8 . 3 .       &  $. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 1 
 
 
 
     9 .     !/  $#&. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 2 
 
 
 
     9 . 1 .       !" "+  $#&. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 3 
 
     9 . 1 . 1 .        $"'!  $#&. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 3 
 
     9 . 1 . 2 .        "+. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 4 
 
     9 . 1 . 3 .       $#&    /. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 4 
 
     9 . 1 . 4 .       $#&/  " T I M E " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 5 
 
     9 . 1 . 5 .        '  !" "+  $#&. . . . . . . . . . . . . . . . . . . . . . . . . . .   4 5 
 
 
 
     1 0 .     +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   4 6 
 
 
 
     1 0 . 1 .     !,   !! . . . . . . . . . . . . . . . . . . . . . . . . . .   4 6 
 
     1 0 . 2 .     (    $ " !    +  (  &# +) . . . . . . .   4 7 
 
             !"   !" &  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   5   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                                   2 .   )  !/
 
 
 
 
 
 
 
 
 
                 "  /+  !,     !        !+    &. 
 
      /  -   ",  /+,    +  /  #'/       .    
 
     !!""'!  !&,   !         /    $#",+%
 
     /",   /!    !"!"  " +%      -"    /+.     " /    - 
 
     !#)!"",   &.  -"  /+,   " /  +  +          
 
     "     /  -$$"    !#)!"#.)%  +'!",+%  M A (%. 
 
 
 
               /   /     /  " !/  +  /+,   "
 
       !" #&    !!"  !,#+%         /+    '!"    
 
     ."!/  #",#      '!#    ' /!..         !(
 
     '!"    !""!"#."   #'#    !!""'!#   !!#.
 
     +(..     -"#  !#"   !",  #,     '"    /+,     
 
     "     #'."    + ",      !      +!,       +"      #
 
     !"    +  +(/     "",!  !!!",     
 
     '"  & /)        !#)!"#.)%    /+%    ! /    ! !"
 
     !+"!/            !"         /,       $  #.)!/        #
 
     #'.)%!/. 
 
 
 
                 !#  /  !/  +  /"    - 6 0 ,     "#         #.
 
     ' ,  !"+   &+  !" #"#  /    $   + /. 
 
 
 
               +  /    ! .    !    - 6 0     "!/"!/    
 
     !!    !" #"#  /    +%,       !,#      !""'!",
 
     !%            - 6 0       +                      '
 
     "!",  #!"  !"     /.       !    
 
     $  !  +   (",  !    ),.    !/     '!
 
     '                      #!(    !"  ",
 
     +  '    # !%     /. 
 
 
 
                "+      +  +'!",  (+  !!"/"      #%
 
     '!":   !/  !",   " +  +    +",    !#)!"+,     
 
     !/     "++%    -"      !"/      +%.       !"/
 
     ."!/  "  ++   " ,       +    -     !/    
 
      /. 
 
 
 
               +       !"+        '/         +%.         /
 
      /,   %/)/    " +   " ,         +",    
 
     " +    !       ,       "        !+"      -"
 
          "$"         "    +%.           "      +%
 
      /"  !"  ',     "     "     ",    /
 
      /.     !  "  "  +",       /      !
 
      ,     #  "$"   ",     !    !#'
 
     -""  "$"     +",    /+     ". 
 
 
 
               !+  //."!/  !/ +    "+    +%.     %     
 
     "      # /'      !"        ',         ". .         "
 
     "$" +,   '.)        '    -"    !". 
 
       !/ +%  ",   +%   /,     !  "!/
 
     '"+   !" "+%  !/ +%  ":     '!    " B O O L E A N " ,     &+
 
     " I N T E G E R " ,   " +  " C H A R "     )!"+  " R E A L " .     '/    -"%
 
     ",      '!,     '."!/        "$" ,     
 
     '!            .'+            +'      " ,         " +
 
     !"!'!    "'+    "    "$" .     !"    '
 
                                                               C T P .   6   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     "   "  -     -"    !"    " ,     .)%!/        '"
 
     #!" !"    #!"  ( - 7 ) . 
 
 
 
               "     ",    "   "   !/     "
 
     -   #  ,(    ,(  '  " . 
 
 
 
               !" #"# +    "+    +%     /."!/        "      %
 
     "    #  !!     &.     !!+     &
 
     "'."!/  %  '/  "       !
 
     ".         !    "!/    '"+     !!     &    +%: 
 
     !!,   !,,   !"    $. 
 
 
 
                   &  +%    !!  !  "+    "!/"!/    
 
     #    "#    "#.   ",/  "  +/"!/  !" 
 
     !!,     +'!/+  !,     "    "     #+"!/    
 
        "  !!.   "  !    +",  !/ +.     
 
      ,   -"  ",    /+    !",     "     &
 
     ".     '.,    )#  "#  !,   !"     !!
 
     +"  ',   .)  "  "    !!.     "     , 
 
     /   /- !!  "     !!" ",!/        " 
 
     "  !      "    ".      /    +         !"    "
 
     !"     ( !) ,     -"#    !!+    +."!/      !" #"# 
 
     +%  !   ,+  !"#. 
 
 
 
                     &    +%        !,    "+    ( ++
 
     /)   #"  +",     ".   '"+  "  +     "+
 
         +    #!"",     /        "!"#      +      (       
 
     !/) ,   !" +  !    ! "  +'!/+%    ', 
 
       //."!/  "$" ,   '   /.)  #.
 
     "#.   -"  "$" +    !+."!/             "
 
     !,   -"#   /  !"#    +   "      !"
 
     "  !" ,   ,   !",,   !  "  //."!/  !" #"# 
 
     !   ,+  !"#. 
 
 
 
               "  +",  #,   '"  "    !    !!""        !,%
 
      ".   -"  '",   '"   '+   +      "    
 
     "  #"  ",    '/     +         "'.)!/
 
     !.    '/  #"  !",!/  '!    "  ".    ", 
 
     //.)!/    "#)    '     - !,     "'"!/    
 
     )  /  !%   "  ,     ++         .     
 
      ,   )/  !   "    '!",    #"    ! ",    !,
 
     ",   .'/       . 
 
 
 
                &/    +%          !"       /"      !"
 
     ',   //.)%!/  !"- !",.      ".     +
 
     "        +",    !/ +         /",!/      !"    
 
      !"/",  !  "   &  ". 
 
 
 
               $  -     -"    !",!",    "+%    ".     
 
      /"  !"!"  # /'  ".       +    "
 
     ! !"  !"#  ",    ".   !"#       #
 
     "        #'",             #,""      !",
 
      /            $#.       $      /"!/      !",+
 
      !  +%  "    &#    $.          "
 
     $    "  '!    ". 
 
 
 
                +,       +      /+        !/,         +."!/
 
     !""'!.       !      !/+"      !             " +
 
                                                               C T P .   7   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     "$" ,     !,#+    /    #/    -"     .     !
 
      #      !" +,        +      #"      !",!/        " +
 
      " .      "  '!  !         +"!/
 
     "  ++  #",    ( /.)    /+    "$" ) .     
 
     !,#"!/  !!"  /  #/    "#.   #..     -""
 
     #",  "  +",   !   +  "    #",.     /
 
      /- #",  "   ",  ",  '/,     //.)!/
 
     #"/    '/      "    "  " "" ;      /",     '"
 
            -"  "  " "" .       ",      ',     #'",
 
     "    '    " N I L " ,     "         #+"                  #.
 
      #..         !,#         +- #"        #"        +",
 
     "    !+%    '!%     +%      !" #"# +%
 
     ",   "  !  ),.    -"%    #"         !"/",    .+
 
     '+   $+. 
 
 
 
               !+   "   //"!/   "    !/,     " +
 
      !+"   !",  ",  '"  +'!    '    " 
 
          (     "     ) .     '    "    +",
 
     #'     #,""  +'!/  + /.   + /  !!"/"    
 
      +%,     !"",     !",      &        $#&,     " +
 
     +/."  !"/     +  '        +."    +
 
     '/.    +,   !""+        $#&        !+."!/    
 
       ,     //."!/  !" "+  ' ".   !,  ! "
 
     $! +              &,       /            " +%      "
 
      !!" ",!/        "         "                 "
 
      #,"".   !   &  /"!/    '"+    #+: 
 
 
 
               1 )    $"'!   &  -   !,   +'",     
 
     ,   #,       %  !"". 
 
 
 
               2 )   '!   &  -   " &,   ' .&/,   ' .&/. 
 
 
 
               3 )    &        !"    -     ' ,      !', 
 
      !",. 
 
 
 
               4 )    &- "(/    -      !",      !",      /, 
 
      !",    .'  ( /  !") . 
 
 
 
                #,""+   &  "(   "  '!#    "#. 
 
     "(/   /   +  ",    !/ +  ". 
 
 
 
                T O       &# +    ++"      !      !""!"#.)
 
      &# +  ( !.   ) .    " +   !/     &# +  //."!/
 
     "  '" ,     ",     " +%  !" /"!/    !" #"# +
 
      " +,      !+.)      !",,       + '      
 
     "   !  !%  ".   !",  !
 
      "   "!/  !!"+   " ,   #!    + '
 
     !  -    "   " !"      "   " + " ,       " 
 
     !  -     &.      "     " !"     !#"    /    '/
 
     !/     "     '.    + /    '!    ",     
 
      "     " + "     "    +    +       #      !,
 
      "     !""!"    !    '    "     !" . 
 
     &  !   "   (  "   " /" )     #" /"!/,         '!
 
     " &  !"   ,           !",+%    !#'/%    !,#."!/
 
     &+  !    #!     /    (  "     " " )         &+    !
 
     #!  '/  (  "   " " " ) . 
 
 
 
                " #  "  +",      /    ( "$" ) ,     !    ),.
 
                                                               C T P .   8   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     "        )",!/        -"#     " #.     "     " 
 
     +"!/   &# ,           !    -     !     &# +. 
 
     !      "      ! ",      !"      !       +%, 
 
        "    ,(  !   &# .     "    !+
 
      +,   "+     &# +  #"  #",!/  ",       %
 
     !     &# +        -"#    +."!/    ,+    /    
 
      &# +.     %    "$" +    ."    !+!    ",         %
 
             "!",       !!"/.)      !       &# +        
 
     +  !",.   /  -"%  "$" .     !,#
 
        &#   "  +",  !    ,/        "(.    
 
      #,   !"   /  #"  +",    +             ##.. 
 
     ' "+, !+        ,   ". .     ,+        /
 
        &# +,   +."!/  ,+. 
 
 
 
                &#   "  $!   '!     " ,     +    
 
     " +%       "!/                 %         &# +        " +
 
     "$" ,   ++  $ ,+   " .         )
 
            &#       #      $ ,#       " #            +",
 
     !!"    " /    $"'!/      '.       -"      '
 
     +"!/      $"'!       " .       !#)!"#"      "          
 
      " :   '/,    +,    &# +  ( $#&) .          
 
     !#'    $"'!     "       //"!/      + ,       '
 
     "     +'!/"!/           .       !""!"#.)      $ ,+
 
      "   //"!/    ,     ,     "      !"!/
 
      #,""  -"  +'!/     +   &# +  ( $#&) . 
 
         !#'     " -      $"'!     "       //"!/
 
              $ ,+     "     !#"      '      -"
 
      .   '/  !,   !    !",,     +'!/."!/     
 
     +   &# +  ( $#&) .     !#'   " -  &# +  
 
      " - $#&  $"'!   "     //"!/    "$" 
 
      &# +    $#&. 
 
 
 
               !    $#&    '+    !/     &# .     "'
 
     .'"!/    ",   '"  $#&    +."     #,"",     "    " 
 
      '    !/ +    "            +",    !&$&     
 
     !  $#&,   -"#  $#&    #"    +",    !,+    
 
     !!"/.)  '!"  + .   /  #!" /  '+%  -$$"    
 
      %  "    $#&    !#"    ",     !    '
 
     ,+   +. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   9   
 
 
 
                                             
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                             3 .   !!  !/  /+
 
 
 
 
 
 
 
 
 
                   !""!"      !      " &+      $       -#!- # 
 
     !"!'!  !" #&    '."!/    !, .'+    
 
     #+  !  " < "     " > " .   -"  !  !+."  "    #,     
 
     !+!,   +%  !" #&    !,#."!/      !#.)    !
 
     !".     "   "   !" #&  #+"!/
 
     '  ( *   -     #,            " ) ,         "    
 
     '!    " "     ( &     -             !,    " ) .       !
 
     " //  !" #&/  !!""    '      -",   
 
     .'"!/    "!  " ( * "       " * ) " ,     '"    '"    " 
 
     #,    !,   . 
 
 
 
               !/  !  !!""      !,      /.)%!/    
 
     #+,   &$ +    !&,+  !+: 
 
 
 
     < #> : : = ! B ! C ! D ! E ! F ! G ! H ! I ! J ! K ! L ! M ! N ! O ! P ! Q ! R ! S ! T ! U ! V ! 
 
                         W ! X ! Z ! 
 
                         ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! !! "! #! $! %! 
 
                         &! +! ,! /
 
     < !, . &$ > : : = 0 ! 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 
 
     < &$ > : : = < !, . &$ > ! 8 ! 9 
 
     < !&,+  !> : : = + ! - ! * ! / ! N O T ! A N D ! O R ! = ! < > ! > ! < ! < = ! > = ! 
 
                         ( ! ) ! [ ! ] ! : = ! . ! , ! ; ! : ! ' ! ^ ! D I V ! M O D ! N I L ! I N ! I F ! T H E N ! 
 
                         E L S E ! C A S E ! O F ! R E P E A T ! U N T I L ! W H I L E ! D O ! F O R ! T O ! 
 
                         D O W N T O ! B E G I N ! E N D ! W I T H ! G O T O ! C O N S T ! V A R ! T Y P E ! 
 
                         A R R A Y ! R E C O R D ! S E T ! F I L E ! F U N C T I O N ! P R O C E D U R E ! 
 
                         L A B E L ! P A C K E D 
 
 
 
               !" #&/
 
 
 
     < !> < ./  !",!",  !,   .'.)/  < !#> 
 
       " )" , > < !> 
 
 
 
     +"!/  "     "  +",  !"  #  .+  #/
 
     "$" ,   '!    !&,+  !.   " 
 
     "  +",  #    "!"    +    /    '/. 
 
 
 
                   !    #!"!/    "     "    < !>     /    +/
 
     " : 
 
 
 
     < !> : : = [ . . . ] !   ( * . . . * ) !   / * . . . * / 
 
 
 
     !    "+      !      //."!/      /+:       /      '
 
     " /    !,",        ",         /     (/    - 
 
      #  "  !. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   1 0   
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                             4 .   -"+    !+  !" #&  /+
 
 
 
 
 
 
 
 
 
               "$" +    !#"    /    '/    !"",       ", 
 
      +%,    &#     $#&.      %  !"   !"
 
     "$" ,   ". .      &#           $#&,         "     
 
     !,   !+!  "$"     +",  '+. 
 
 
 
   < "$" > : : = < #> < #    &$ > * 
 
   < #    &$ > : : = < #> ! < &$ > 
 
 
 
               !,  #!"  .#.  #    "$" ,      '    !
 
         //."!/    '+.          &+      (       !.'
 
     ', (, ), -, .)         #"        "          !,",!/,                     ##"
 
     "  " ",!/            !""!"#.)    "!.       !#"
 
     "",,   '"    !" "  !/   #"!/,   '"+     +    8 
 
       "$"   +  #,+. 
 
 
 
                   !/    !     '/        $ "      ' "      #/
 
     "$" +    (%    $ " !%       &#       +      +",
 
     #,+     +  6       ( ". .      '",!/         +    6 
 
     ) . 
 
 
 
               /  '!,   //.)%!/  !""  &        )!"
 
     ",   !,#"!/  +'/  !/"'/  !!"  !    #    " " , 
 
      (!"#.)/   /#,   '""!/    " #",    1 0     !"" . 
 
 
 
     < &    > : : =   < &$ > & ! < !, . &$ > & 
 
     < )!"    > : : =   < &$ > & . < &$ > & ! 
 
                                         < &$ > & . < &$ > & <  /> ! 
 
                                                           < &$ > & <  /> 
 
     < '!    > : : =   < &    > ! 
 
                                                           < )!"    > 
 
     <  /> : : =   < &$ > & ! < > < &$ > & 
 
     < > : : =   + ! - 
 
 
 
               +: 
 
 
 
     1         1 0 0         0 . 1         5 - 3         8 7 . 3 5 + 8         1 2 
 
 
 
               !",!"  " ,   .'+    +',     +."!/
 
     "!".   "!"+,     !!"/)        !"    " +,     //."!/
 
     !""  "   ".   "!"+,   !!"/)    N   ( N > 1 )   "     
 
     +'%,   //."!/  !""  ". 
 
 
 
   A R R A Y [ 1 . . N ]   O F   C H A R 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   !  "!"    ! ",  +'#,   "
 
       " /"!/  +. 
 
 
 
     < "!"> : : =   ' < " > & ' 
 
 
 
               +: 
 
     ' A '           ' ; '             ' ' ' '           ' P A S C A L ' 
 
 
 
                                                               C T P .   1 1 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                     5 .   -"+    / +  +%
 
 
 
 
 
 
 
 
 
 
 
 
 
                 5 . 1 .    /  !""
 
 
 
 
 
 
 
                    !""+    "    "$"           !
 
     "   !""+: 
 
 
 
     < "$"   !""+> : : =   < "$" > 
 
     < !""    > : : =   < '!    >   ! 
 
                                   < "!">   !   < "$"   !""+>   !   N I L 
 
     < !""> : : =   < '!    > ! < > < '!    > ! 
 
                                   < "$"   !""+>   ! 
 
                                   < > < "$"   !""+>   !   < "!"> 
 
     <    !""+> : : =   < "$" >   =   < !""> 
 
 
 
                        &       +      !#.)      !" "+
 
     "$" +: 
 
 
 
     E O L 
 
                   -      # /.)#  !#,   '.)#  &  !" ; 
 
 
 
     A L F A L E N G 
 
                   -      1 0 . 
 
 
 
 
 
 
 
                 5 . 2 .    /  "  +%
 
 
 
 
 
 
 
               "    +%    "    !"      ',       " +      #"
 
      ",     +    -"    ",         !/+"    !    -"    "
 
     "$" . 
 
 
 
     < "> : : =   <  !"  ">   !   < !" #"# +  ">   ! 
 
                       < "  #"/> 
 
     <    "> : : =   < "$" >   =   < "> 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   1 2 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             5 . 2 . 1 .    !"+  "+
 
 
 
 
 
 
 
     <  !"  "> : : =   < !/ +  ">   !   < "   ">   ! 
 
                                       < "$"   "> 
 
     < "$"   "> : : =   < "$" > 
 
 
 
 
 
 
 
         5 . 2 . 1 . 1 .   !/ +  "+
 
 
 
 
 
 
 
               !/ +  "   /"    # /'    !"    '
 
     ! !"     '!/      "$" ,       '.)%      -"
 
     '/: 
 
 
 
     < !/ +  "> : : = ( < "$" > ( * , < "$" > * ) ) 
 
 
 
                 +: 
 
 
 
     (  !,    ,   ",   ,   #) 
 
     ( / ,, $ ,,  ") 
 
     ( , !, ", !,) 
 
 
 
                 !  !/ +  "( !.'/  R E A L )      +    !#.)
 
     $#&: 
 
 
 
     S U C C   -   !#.)  '  (    /   '!/) ; 
 
     P R E D   -    (!"#.)  '  (    /   '!/) . 
 
 
 
 
 
 
 
         5 . 2 . 1 . 2 .   !" "+  !/ +  "+
 
 
 
 
 
 
 
               !#.)  "+  //."!/  !" "+    !: 
 
 
 
               &+  "  ( I N T E G E R )   -   '/   #."    !"    &+%
 
     '!     &%  ( - 3 2 7 6 8 . . 3 2 7 6 7 ) .   +    &+    #"    +",
 
     ' /+  !  ),.    ( 0 . . 6 5 5 3 5 ) .     !#"    ",,     '"
 
      $"'!   /   /."!/  ",       #    
 
       +%  &+%. 
 
 
 
     T Y P E   U N S I G N E D I G I T = 0 . . 6 5 5 3 5 
 
 
 
     /  &+%  '!     "$"   M A X I N T = 3 2 7 6 7 . 
 
 
 
               )!"+  "  ( R E A L )   -     '/    //."!/    !"
 
     !"  )!"+%    '!    )!"+    '!    ( R E A L )     ."
 
       1 - 3 8 . . 1 + 3 8     "'!",     /    7     !/"'+%    . 
 
      $"'!   /   /."!/    /    !%     &,     
 
     " /    '!"        !" #"!/         "        ##
 
      #,""#. 
 
 
 
     !" "+    " !&"+    $#&      ."      "'!",            6 
 
                                                               C T P .   1 3 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     !/"'+%  &$ . 
 
 
 
               '!    "    ( B O O L E A N )     -     '/     !"/."    !
 
     !"!"+    '/,     '+    "$"     T R U E       
 
     F A L S E ; 
 
 
 
               " +    "    ( C H A R )     -     '/    !#",    !"      " , 
 
     !/)    "     "     &,            ."!/      !
 
     " ,   .'+    +'.        &    !,#"
 
     +       - 7 .   +    % "!/      "    ( 8 
 
       /) . 
 
 
 
 
 
 
 
         5 . 2 . 1 . 3 .   "   "
 
 
 
 
 
 
 
               "  "  +",       "    #  !/   "
 
     ! !"  #/  ,(    ,(  '    " . 
 
      /  !""  "  ..   &#,   " /            +",
 
     ,(   %. 
 
 
 
     < "   "> : : = < !""> . . < !""> 
 
 
 
               +: 
 
 
 
       1 . . 1 0 0 
 
       - 1 0 . . + 1 0 
 
       . . "
 
 
 
 
 
 
 
             5 . 2 . 2 .   !" #"# +  "+
 
 
 
 
 
 
 
               !" #"# +  "  +%  % " #"!/    "    (     ") 
 
     !%  "    !!  %   &. 
 
 
 
     < !" #"# +  "> : : = < "  !!>   !   < "  !>   ! 
 
                                         < "  !">   !   < "  $> 
 
 
 
               !" "+  !,  ! "   &# +  " P A C K "     " U N P A C K "   /
 
     -$$"   "+  !  "    !" #"#     ".         
 
     !  " #"  " P A C K E D " ,   #!"+    !" ",   #"!/,     
 
     !,   &#   " P A C K "     " U N P A C K "   #!". 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   1 4 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
         5 . 2 . 2 . 1 .   "+  !!
 
 
 
 
 
 
 
               "  !!  -   -"    !" #"# ,     !!"/)/        $! 
 
     '!    "            "        ",     +      "
 
     ".   -"+  !!  + ."!/    !  -     '/, 
 
      )    "  +#  "#  !.          "
 
     !!  "    "  ",   "    "  !: 
 
 
 
     < "  !!> : : = 
 
     A R R A Y [ < "  !> ( * , < "  !> * ) ]   O F   < "  "> 
 
     < "  !> : : = <  !"  "> 
 
     < "  "> : : = < "> 
 
 
 
               !    N   "    !,     "    "    !!    +"!/
 
     N -  +;     "+  + ."!/  !  ),.  N   !. 
 
 
 
             +: 
 
 
 
     A R R A Y [ 1 . . 1 0 0 ]   O F   R E A L 
 
     A R R A Y [ 1 . . 1 0 , 1 . . 2 0 ]   O F   0 . . 9 9 
 
     A R R A Y [ B O O L E A N ]   O F   &"
 
 
 
 
 
 
 
         5 . 2 . 2 . 2 .   "+  !
 
 
 
 
 
 
 
               "  !  -     -"    !" #"# ,     !!"/)/        $! 
 
     '!  ",   ,    +%  ".      "    !
 
     "    /        "+,     +    ,         "      
 
     '.)  -"    "$" .   !",.   !"  -"%
 
     "$"   /  //"!/  !     !,     
 
     !"#+  "    + %  /,   !!+.)%!/       #.- !,
 
       ". 
 
 
 
               "  !  "  ",  !,   ";       "    !#'
 
     "     "'"!/       :   '  -"    /
 
     +",        "   - !     !!" "!/
 
       +  ".   +   "  "$& #"!/    "    + , 
 
     //.)!/  !""  "  /   : 
 
 
 
     < "  !> : : = R E C O R D < !!  > E N D 
 
     < !!  > : : = < )/  '!",> ! 
 
                                       < )/  '!",> ; <  "/  '!",> ! 
 
                                       <  "/  '!",> 
 
     < )/  '!",> : : = < !&/  !> ( * ; < !&/  !> * ) 
 
     < !&/  !> : : = < "$"   /> 
 
                                       ( * , < "$"   /> * ) : < "> 
 
     <  "/  '!",> : : = C A S E <    > : 
 
                         < "$"   ">   O F   <  "> ( * ; <  "> * ) 
 
     <  "> : : = < !!  "  + > : ( < !!  > ) ! 
 
                             < !!  "  + > 
 
     < !!  "  + > : : = < "  + > ( * , < "  + > * ) 
 
     < "  + > : : = < !""    > 
 
     <    > : : = < "$" > 
 
                                                               C T P .   1 5 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                 +: 
 
 
 
         R E C O R D   ,: 1 . . 3 1 ; 
 
                       !: 1 . . 1 2 ; 
 
                       : I N T E G E R 
 
         E N D 
 
 
 
     R E C O R D     /, $/: A L F A ; 
 
                      !": 0 . . 9 9 ; 
 
                     ": B O O L E A N 
 
     E N D 
 
 
 
     R E C O R D     X , Y : R E A L ; 
 
                     ),: R E A L ; 
 
           C A S E   $:   $   O F 
 
           " #,:       ( !" : R E A L ; 
 
                                           , #1 , #2 : #) ; 
 
            /#,: ( !" 1 , !" 2 : R E A L ; 
 
                                         !, #3 : #) ; 
 
            #: ( " : R E A L ) 
 
     E N D 
 
 
 
 
 
 
 
         5 . 2 . 2 . 3 .   "+  !"
 
 
 
 
 
 
 
               "    !"     /"    !"    'E ,     //.)%!/
 
     !"- !",.            ( !"            !%              !") 
 
     !""!"#.)    ".   +    "M         #"    +",
 
     !" #"# +  "+.     +  "  !"   +   &: 
 
 
 
     +       ' 
 
     *        !'
 
     -        !",  !"  (    ) 
 
     I N     "(   !"  ( '!") 
 
 
 
     < "  !"> : : = S E T   O F   < "  +> 
 
     < "  +> : : = <  !"  T > 
 
 
 
                 !,    /  ,   '!    -"    !"
 
       "   +(",  6 4 . 
 
 
 
        !" "  !"  " S E T   O F   C H A R " ,   '"    -"
 
     " S E T       O F       S P A C E . . U N D E R L I N E " ,             S P A C E       =         C H R ( 4 0 B )         
 
     U N D E R L I N E = C H R ( 1 3 7 B ) .   "   ,   " S E T     O F     C H A R "         .'"
 
     #   &+    # /.)%  ,   .)%  +    4 0 . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   1 6 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
         5 . 2 . 2 . 4 .   "+  $
 
 
 
 
 
 
 
                    "    $    "    !" #"# #,     !!"/)#.      
 
     !",!"      "+%      ".       '!      ", 
 
     +    $,      "  $      $! #"!/. 
 
     $,     .)    0     ",     +"!/    #!"+;       $+,       "
 
     "  " +%  " +,   +."!/  "!"+  $. 
 
 
 
     < "  $> : : = F I L E   O F   < "> 
 
 
 
           !#.)  "  //"!/  !" "+: 
 
 
 
     T Y P E   T E X T   =   F I L E   O F   C H A R 
 
 
 
               +    !,        /"    !,",    $+    $, 
 
     ,          /",    !!+    $,             "      !, 
 
     ! )    '!"  "  $+. 
 
 
 
 
 
 
 
             5 . 2 . 3 .   "+  #"
 
 
 
 
 
 
 
               !"#    !+             +        #'",
 
     '     %    "$" +.         !#)!"#."      !       /,       
 
     +/"!/   &#   ( !",     !") ,         "     -"
 
      +    ,+,         !/    !      '      !      +."!/
 
     !""'!        !""'!     )+.     !     #    !" +, 
 
      +  #"  !",!/        '!,     ". .         !/
 
     !/    !    !" #"#       +.     -"    '!       +
 
     !."!/  !" "   &#   " N E W " ;   !,#      %/"  
 
     /+  !/   +%,       #"  +",    '+    . 
 
     !"#        "     +    !#)!"/"!/    '     #",+
 
     '/    ( !!+) ,     ++      !      !/      '!
 
      .   +  "    #"    !!"",     "     ,     
 
      '    !"    #+.)%        "+    -"+
 
     '.     #"/       %     &,      
 
            !".     '    " N I L "      "    !    "
 
     #",         #+"        -". 
 
 
 
     < "  #"/> : : = ^ < "$"   "> 
 
 
 
             +     ": 
 
 
 
     &"  =   (  !,    ,   ",   ,   #,   !,   $) 
 
       =   ( #, ) 
 
     T E X T   =   F I L E   O F   C H A R 
 
     $   =   ( " #,,  /#,,  #) 
 
      "  =   A R R A Y [ 1 . . 8 0 ]   O F   C N A R 
 
     A L F A   =   A R R A Y [ 1 . . A L F A L E N G ]   O F   C H A R 
 
       =   R E C O R D   R E ,   I M :   R E A L   E N D 
 
     &  =   R E C O R D   $/, /: A L F A ; 
 
                    !": I N T E G E R ; 
 
                   ": B O O L E A N ; 
 
                   "&,  ,  ": ^ &; 
 
                                                               C T P .   1 7 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     C A S E    :     O F 
 
               #:   ( /, +!: B O O L E A N ) ; 
 
               :   (  : B O O L E A N ; 
 
                          : A R R A Y [ 1 . . 3 ]   O F   I N T E G E R ) 
 
     E N D 
 
 
 
 
 
 
 
                 5 . 3 .   !        +%
 
 
 
 
 
 
 
               !/     +%    !!"/"        !!      "$" , 
 
     '.)%  +   +,     " +  !#"  %  ": 
 
 
 
     < !   > : : = 
 
                       < "$" > ( * , < E "$" > * ) : < "> 
 
 
 
                 !   - $  " $"   !  "  "  " "" 
 
      #"  ",    !    "    +    #$ 
 
        "  " "" .   -"  #$ /   /     "!/    $^     
 
     !#"  /   !/    $#  "             
 
     /  #'/  !"#    $#     '". 
 
 
 
                   ",+%    !#'/%    +"      #      ",      !",
 
      )",!/    !."+  /'    /",       ,          !" 
 
     (%  #!" !"    "&     &    !!"+.     /    -"
 
     &      !  !#"  !,",  .'  !    O R I G I N 
 
       ' /   .     ,   !#.)/        !'"+"
 
       !  "# +  !!"  "     $'!  # : 
 
 
 
                   C O N S T       R E A D Y       = 2 0 0 B ; 
 
                   V A R           K B C S R   O R I G I N   1 7 7 5 6 0 B , 
 
                                   K B D A T   O R I G I N   1 7 7 5 6 2 B :       I N T E G E R ; 
 
                                   C H : C H A R ; 
 
                   B E G I N 
 
                                   W H I L E   ( K B C S R   A N D   R E A D Y )   =   0   D O ;   ( * ",* ) 
 
                                   C   : =   C H R ( K B D A ") ; 
 
                   E N D . 
 
 
 
 
 
           +: 
 
 
 
     X ,   Y ,   Z :   R E A L 
 
     U ,   V :   
 
     I ,   J :   I N T E G E R 
 
     K :   0 . . 9 
 
     P ,   Q :   B O O L E A N 
 
      &/:   ( .!,   #!,   #) 
 
     A :   A R R A Y   [ 0 . . 6 3 ]   O F   R E A L 
 
     B :   A R R A Y   [ &",   B O O L E A N ]   O F   
 
     &:   &"
 
     F :   F I L E   O F   C H A R 
 
     ""1 ,   ""2 :   S E T   O F   &"
 
     P 1 ,   P 2 :   ^ &
 
 
 
                /   +%  '."        #.     #., 
 
       " #.  "#   E ,      E #.,     " #.
 
                                                               C T P .   1 8 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     !!+"!/  " +  #",.    "!/,   '"     +    
 
     !#.)%    %  !+,     #  +(. 
 
 
 
     <  /> : : =   < /   />   !   < "/
 
                                      />   !   < ##/   /> 
 
 
 
 
 
 
 
             5 . 3 . 1 .   +   +
 
 
 
 
 
 
 
               /   /   "!/  !  "$" : 
 
 
 
     < /   /> : : =   < "$"    > 
 
     < "$"    > : : =   < "$" > 
 
 
 
 
 
 
 
 
 
             5 . 3 . 2 .   "+   +
 
 
 
 
 
 
 
               "/       /         "!/        !""!"#.)
 
      ,         "     !#"    .)      ##.      "#
 
     !" .   $   !"   !"    "    !!     &    "
 
      : 
 
 
 
     < "/   /> : : =   <  /  !  !>   ! 
 
                                                       < #"E ,  />   !   < #$   $> 
 
 
 
 
 
 
 
         5 . 3 . 2 . 1 .    +  !  !
 
 
 
 
 
 
 
               "    N -         - !!      '"!/      !
 
     ),.  -"   ,     "   !#"  !!    N   !+%
 
     + : 
 
 
 
     <  /  !  !> : : = 
 
                   <  /- !!> [ < + >   ( * , < + > * ) ] 
 
     <  /- !!> : : =   <  /> 
 
 
 
               "+    !+%    +     +      !""!"",      "
 
     !    !  !""!"#.)  "  !!. 
 
 
 
             +: 
 
 
 
     A   [ 1 2 ] 
 
     A   [ I + J ] 
 
     B   [  !, T R U E ] 
 
     B   [ S U C C ( &) , P   A N D   Q ] 
 
 
 
 
 
 
 
                                                               C T P .   1 9 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
         5 . 3 . 2 . 2 .   #"  
 
 
 
 
 
 
 
               "           - !          '"!/            ' 
 
     !""!"#.)#.         #.- !,,                 "         !#"
 
     "$"   /  #  "+: 
 
 
 
     < #",  /> : : =   <  /- !,> . < "$" 
 
                                                                                           /> 
 
     <  /- !,> : : =   <  /> 
 
     < "$"   /> : : =   < "$" > 
 
 
 
           +: 
 
 
 
     U . R E 
 
     B   [  !,   T R U E ] . I M 
 
     P 2 ^ .  
 
 
 
 
 
 
 
         5 . 3 . 2 . 3 .   #$ +  $
 
 
 
 
 
 
 
                   .    "    ! !"      !"#      ",      
 
     ",      //    "#)    &      $      (   , 
 
       !'"+/- !) .   -"    "    +"!/    "#)
 
     "    $;          !"/"!/     ,     +
 
     #$   $: 
 
 
 
     < #$   $> : : =   <  /- $> 
 
     <  /- $> : : =   <  /> 
 
 
 
 
 
 
 
             5 . 3 . 3 .   ##+   +
 
 
 
 
 
 
 
     < ##/   /> : : =   <  /- #",> ^ 
 
     <  /- #",> : : =   <  /> 
 
 
 
               !  " P "     //"!/     - #",          
 
     "  " "" ,   "  " P "   '"  -"#     #.            #",
 
     ',   "    P ^   '"   #.  "  " "" ,     " #.
 
     !!+"!/  " P " : 
 
 
 
           +: 
 
 
 
     P 1 ^ . "&
 
     P 1 ^ .  "^ .  
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 0 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                                         6 .   + /
 
 
 
 
 
 
 
 
 
               + /  -   -"  !" #&,   .)     +'!  /
 
      /    '     +%        #'/    +%      '
 
        !".     !!"/"     ,   ". .    +%  
 
     !"",      &    $#&. 
 
 
 
                    &    ."      ""+             &, 
 
      /  %    '"+     !!.     +!(      ""    "    
 
      &  N O T ,   "  !#."  "  ++         &    "
 
     #/,   "  -      &  "  !/    &  -   
 
     "(.       !",!",       &                ""
 
     !/"!/  !   .   -"  "(/    ""    " +    
 
     !#.)  !"!!: 
 
 
 
     < ",>   : : =   <  />   !   < !""    >   ! 
 
                                     <  )    $#&>   !   < !"> 
 
                                   ( < + > )   !   N O T < ",> 
 
     < !">   : : =   [ < + >   ( * ,   < + >   * )   ]   !   [   ] 
 
     < " >   : : =   < ",>   ! 
 
                       < " > <    &  "  #/> < ",> 
 
     <  !"  + >   : : =   < " >   !   <  !"  + > 
 
                                           <    &  "  !/> < " >   ! 
 
                                           <    &  "  !/> < " > 
 
     < + >   : : =   <  !"  + >   ! 
 
                                 <  !"  + > <   "(/> <  !"
 
                                   + > 
 
 
 
               + /,     //.)!/    -"    !",     +    +",
 
         "    ",   //.)!/  "  +      !". 
 
     " [ ] "   '"  #!"  !". 
 
 
 
                 +: 
 
     ":                           %
 
                                                   1 5 
 
                                                   ( %+ Y + Z ) 
 
                                                   S I N ( X + Y ) 
 
                                                   [  !,   &,   ] 
 
                                                   ^  
 
     " +:                                   X * Y 
 
                                                   I / ( 1 - I ) 
 
                                                   P   A N D   Q 
 
                                                   ( X < = Y )   A N D   ( Y < Z ) 
 
      !"+  + /:           X + Y 
 
                                                   - X 
 
                                                   ""1   O R   ""2 
 
                                                   I * J + 1 
 
     + /:                           X = 1 5 
 
                                                   &  I N   ""1 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 1 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                 6 . 1 .    &/  " &/
 
 
 
 
 
 
 
                  &  " N O T " ,    +     #  '!  ", 
 
     '"  " &. 
 
 
 
 
 
 
 
                 6 . 2 .    &  "  #/
 
 
 
 
 
 
 
     <    &  "  #/> : : =   * ! / ! D I V ! M O D ! A N D 
 
 
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
             !    &/      !         "                  !           "
 
      &!                         !                !    #,""
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           *         !   #    !   R E A L ,   I N T E G E R     !   I N T E G E R ,   E !  
 
                     !                         !                                 !      ."
 
                     !                         !                                 !   -""  ",   R E A L   
 
                     !                         !                                 !   !",+%  !#'/%
 
           *         !  !'  !   .  "  -   ! 
 
                     !   !"      !   !"  "                !       "
 
                     !                         !                                 ! 
 
           /         !           !   R E A L ,   I N T E G E R     !   R E A L 
 
                     !                         !                                 ! 
 
         D I V       !           ! \                               ! 
 
                     !   &          !   !                             ! 
 
                     ! ( !  #!'!   !                             ! 
 
                     !                         !   !                             ! 
 
         M O D       !   %  !   !   I N T E G E R             !     I N T E G E R 
 
                     !   O !""        !   !                             ! 
 
                     !   "  /  !   !                             ! 
 
                     !   &          ! /                               ! 
 
                     !                         !                                 ! 
 
         A N D       !   ' .&/  !   B O O L E A N                 !   B O O L E A N 
 
 
 
 
 
 
 
                 6 . 3 .    &  "  !/
 
 
 
 
 
 
 
 
 
     <    &  "  !/>   : : =   !   +   !   -   !   O R 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 2 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                   !          &/    !             "          !             "
 
          &  !                             !            !      #,""
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
           +               !   '   !   .  "          ! 
 
                           !   !"        !   !"  "      !     "
 
           +               !   !        !   R E A L ,   I N T E G E R   !   I N T E G E R ,   !
 
           -               !   +'"      !   R E A L ,   I N T E G E R   !     O  
 
                           !                           !                               !   ."  -""  ", 
 
                           !                           !                               !   R E A L     !",- 
 
                           !                           !                               !   +%  !#'/%
 
           -               !    !",        !   .  "          ! 
 
                           !   !"        !   !"  "      !     "
 
           O R             !   ' .&/    !   B O O L E A N               !   B O O L E A N 
 
 
 
                  &  " - "     " + " ,   !    !,#."!/    !        
 
     "     ,   '."    !""!"            
 
     "!"#.   &.. 
 
 
 
 
 
 
 
                 6 . 4 .   '!   &  !  &+  '!
 
 
 
 
 
 
 
               #!   &  A N D ,   O R     N O T   ."     !( #.    !",
 
     !"/    #"   /",!/    /    &+%    '!.      &/    #"
 
     +/",!/    1 6     /   .   -"   !(     /"
 
      ",    #        #!"#    ",+%      /        &+%
 
      +%  (   ,   /   !"   (%  #!" !") .     : 
 
 
 
                   B Y T E   : =   O R D ( C H )   A N D   3 7 7 B ; 
 
 
 
 
 
 
 
                 6 . 5 .     "(
 
 
 
 
 
 
 
     <   "(/>   : : =   !   =   !   < >   !   <   !   < =   !   > =   !   >   !   I N 
 
 
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
       "(/    !                   "             !    #,""
 
     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
         =           < >             !   .  ",      "          !   B O O L E A N 
 
                                     !       $                                      ! 
 
         <     >     < =     > =     !   .  !/ +  "        !   B O O L E A N 
 
                                     !       "   "                        ! 
 
                 I N                 !   .  !/ +  "        !   B O O L E A N 
 
                                     !       "   "    !/-     ! 
 
                                     !       +  !    !""!"#.-   ! 
 
                                     !       )  "  !"                ! 
 
 
 
               ",   '"  !    !/ +    "+     /."    # /'+
 
     !"  '.     '!"!",   F A L S E < T R U E .     "(  " < = " 
 
       " > = "     !,",  /  ! /  '  "    !", 
 
        -"    '."  !""!"  "(/  .'/. 
 
 
 
                                                               C T P .   2 3 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                 "(  " < = " ,   " < " ,   " > " ,   " > = "     "   /",  
 
     #+  !!  "   ";     -"  !#'    '."
 
     $"  "(   /,   !""!"#.)  '#  !"#
 
     " . 
 
 
 
 
 
 
 
                 6 . 6 .   #"  $#&
 
 
 
 
 
 
 
               #",  $#&   !+"   )        !""!"#.)
 
      &# - $#&.         !!""        '.)    -"#    $#&.
 
     "$"         !!    $"'!%       " .        " +, 
 
     " +  #"  +",   +,   + /,    &# +        $#&, 
 
     !"/."!/  !"  !""!"#.)%  $ ,+%   " : 
 
 
 
     < #",  $#&>   : : =   < "$"   $#&>   ! 
 
                                         < "$"   $#&> ( < $"'!
 
                                            " > ( * ,   < $"'!   " >   * ) ) 
 
     < "$"   $#&>   : : =   < "$" > 
 
 
 
 
 
                 +: 
 
 
 
   S U M ( A , 1 0 0 ) 
 
   S I N ( X + Y ) 
 
   E O F ( F ) 
 
   O R D ( F ^ ) 
 
 
 
 
 
 
 
                 6 . 7 .    !+   "   " @ " 
 
 
 
 
 
 
 
                 !!"      /+    !,    %"    # +     " , 
 
     '+  " @ " .   !    !,",  !     "  " A " ,   "
 
      #,""  #"  '  "  " ^ A "   ( #",    " A " ) .    !/
 
      &/    "      !,",!/      /       "+      !      !!+
 
     !" #"#     +%        /     '     !              +, 
 
     !+    /+   !! .     : 
 
 
 
                   T Y P E         B L O C K = A R R A Y [ 0 . . 5 1 1 ]   O F   C H A R ; 
 
                   V A R           B U F F E R : B L O C K ; 
 
                   B E G I N 
 
                                   ( *   ",   !  #$   * ) 
 
                                   X R B . X R L O C : = @ B U F F E R 
 
                   E N D ; 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 4 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                                         7 .    " +
 
 
 
 
 
 
 
 
 
                " +    '."     "'!    !"/.            %
 
      /",   '"      #"    +",    ++.      " +    #"    +",
 
     !+  ",     "   #"  "!+",   " +   %: 
 
 
 
     <  " >   : : =   < '+   " >   ! 
 
                                   <   "> : < '+   " > 
 
     < '+   " >   : : =   <  !"   " >   ! 
 
                                                           < !" #"# +   " > 
 
     < ">   : : =   < &    > 
 
 
 
 
 
 
 
                 7 . 1 .    !"+   " +
 
 
 
 
 
 
 
                !"+   " +  -   -"   " +,   /  '!",  " +%    
 
     ! "    !   #%   " . 
 
 
 
     <  !"   " >   : : =   <  "    !/>   ! 
 
                                                   <  "    &# +>   ! 
 
                                                   <  "    %>   ! 
 
                                                   < #!"   " > 
 
 
 
 
 
 
 
             7 . 1 . 1 .    " +   !/
 
 
 
 
 
 
 
                "    !/  !#"  /    +    "#)    '/
 
        +  ',   +  " +  + . 
 
 
 
     <  "    !/>   : : =   <  />     : = < + >   ! 
 
                                           < "$"   $#&>   : = < + > 
 
 
 
                /  ( !""!"  $#&/)     +       +",
 
       ";   #!."!/  !#.)  !.'/: 
 
 
 
               1 .    /  "  )!"+  ",       +     -     &+
 
         " ; 
 
 
 
               2 .   "    + /    //"!/    "     "    !""!"#.)
 
           ". 
 
 
 
               +: 
 
 
 
     X : = T + Z 
 
     P : = ( 1 < = I )   A N D   ( I < 1 0 0 ) 
 
     I : = S Q R ( K ) - ( I * J ) 
 
     "": = [ #, S U C C ( &) ] 
 
 
 
 
 
                                                               C T P .   2 5 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             7 . 1 . 2 .    " +   &# 
 
 
 
 
 
 
 
                "      &# +      !#"      /      +/       &# +, 
 
     '  "$"    &# +.    "    &# +    "
 
     ! ",  !!  $"'!%   " ,   !"/+%        !"
 
     !""!"#.)%    $ ,+%   " ,    +%    !
 
      &# +.   !""!"  #!""!/    &/   "     
 
     !!%  $ ,+%    $"'!%     " .     !#)!"#"    '"+ 
 
        " :   "  ++     " +- '/,      +, 
 
      &# +    ( !""!"#.)    $"'!     "           +",
 
     "$"      &# +)            " +- $#&      ( $"'!
 
      " +  -   "$"   $#&) . 
 
 
 
               !" "+   &# +    $#&    ( $ +        /+)     
 
     #"   ",!/    '!"   " .   -"     '    
 
     "    #"     /    "      &# +,       " /       !"
 
     ++"  !" "#.,     : 
 
 
 
                   F U N C T I O N   S I N E ( X : R E A L ) :   R E A L ; 
 
                   B E G I N   S I N E : = S I N ( X )   E N D ; 
 
 
 
                 !#'     " - '    $"'!     "     
 
     +",    +     (     '!"!"     ) .       !      $ ,+
 
      "   //"!/  ,     ++     &# +,     "
 
     "#)    '    + /     !"!/    -"           
 
     '!"    ',  '/.       !#'     " -  +%
 
     $"'!   "       +",     /.     !""!"#.)
 
     $ ,+   "    !"/"  -"#    $"'!#.     #.    
 
     !     /    +/         &# +.     !    -"     /
 
     //"!/  "  "   !!,   "    !  +'!/"!/
 
        +   &# +.    " -  #.  !#"  !,",  
 
     !%  !#'/%,      "   !#"  /   !"/     #,""
 
      &# +. 
 
 
 
     <  "    &# +> : : =   < "$"    &# +>   ! 
 
                       < "$"    &# +> ( < $"'!   " > 
 
                       ( * ,   < $"'!   " > * )   ) 
 
     < "$"    &# +> : : = < "$" > 
 
     < $A "'!   " > : : = < + >   !   <  />   ! 
 
                 < "$"    &# +>   !   < "$"   $#&> 
 
 
 
               +: 
 
 
 
     T R A N S P O S E ( A , N , M ) 
 
     B T S E C T ( F S T , - 1 . 0 , + 1 . 0 , X ) 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 6 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             7 . 1 . 3 .    " +   %
 
 
 
 
 
 
 
                "    %  !#"  /    #/,     '"    ,(    
 
     +/",!/    "      '!",        +,              "       )
 
     !""!"#.)/  ": 
 
 
 
     <  "    %> : : = G O T O   < "> 
 
 
 
       !,  "  +."!/  !#.)   '/: 
 
 
 
               1 )   !",.  !"/  "  //"!/    !     &# +,     
 
      %  "        .     "     ,         ,/
 
     "  #" ,   &# +; 
 
 
 
               2 )     !     "      %       "      #       
 
      &# +,   "    "        +",    !&$&     !
 
     "       &# +,     "   -"  "   . 
 
 
 
 
 
 
 
             7 . 1 . 4 .   #!"   " 
 
 
 
 
 
 
 
               #!"   "       '"!/      ++"    %
 
     !". 
 
 
 
                               < #!"   " > : : = 
 
 
 
 
 
 
 
                 7 . 2 .   !" #"# +   " +
 
 
 
 
 
 
 
               !" #"# +   " +  //."!/  !" #&/,     !!"+
 
          #%     " ,     " +    +      +",      ++      
 
     !",  ( !!"   " ) ,     "   ( &+) . 
 
 
 
     < !" #"# +   " > : : = < !!"   " >   ! 
 
                                           < #!+   " >   !   <  "   &> 
 
                                           <  "     !,.> 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 7 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             7 . 2 . 1 .   !!"+   " +
 
 
 
 
 
 
 
               !!"   "    !+"  +  !!"/.)%    
 
      "      /  %  !/.   !+  B E G I N     E N D     !"#."
 
        " +  !. 
 
 
 
     < !!"   " > : : = B E G I N <  " > ( * ; <  " > * ) N D 
 
 
 
             : 
 
 
 
             B E G I N   Z : = X ;   X : = Y ;   Y : = Z   E N D 
 
 
 
 
 
 
 
             7 . 2 . 2 .   #!+   " +
 
 
 
 
 
 
 
               #!+       "       '"            +.            
 
     !!"/.)%     " : 
 
 
 
     < #!+   " > : : = <  "   " I F " > ! 
 
                                                           <  "   " C A S E " > 
 
 
 
 
 
 
 
         7 . 2 . 2 . 1 .    "   " I F " 
 
 
 
 
 
 
 
                "     " I F "     #+",     '"    " +     "     
 
     +/",!/,   !  ",  "   #!  ( '!  + ) 
 
     !"  ( T R U E ) .   !      "    '    F A L S E ,     T O         
 
     +/"!/           " ,             +/"!/       " , 
 
     !#.)    !B   E L S E : 
 
 
 
     <  "   " I F " > : : = I F < + > T H E N <  " >   ! 
 
                                     I F < + > T H E N <  " > E L S E <  " > 
 
 
 
               +   #  !  I F     T H E N     ",    '!
 
     ". 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .           !"!'!/          '!",, 
 
     .)/    !" #&: 
 
 
 
     I F   < + 1 >   "H E N   I F   < + 2 >   T H E N   <  " 1 > 
 
                                                                               E L S E   <  " 2 > 
 
 
 
       ("!/  "  -"  !" #&    -"  /: 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 8 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     I F   < + 1 > 
 
     T H E N   B E G I N   I F   < + 2 > 
 
                           "H E N <  " 1 > 
 
                           E L S E <  " 2 > 
 
               E N D 
 
 
 
             +: 
 
 
 
         I F   X = 1 . 5   T H E N   Z : = X + Y   E L S E   Z : = 1 . 5 
 
         I F   P 1 < > N I L   T H E N   P 1 : = P 1 ^ . "&
 
 
 
 
 
 
 
         7 . 2 . 2 . 2 .    "   " C A S E " 
 
 
 
 
 
 
 
                "   " C A S E "   !!""    + /    ( !" )         !!
 
      " ,   +      " +%    '    !""    !" 
 
     ".    "   " C A S E "   #+",   '"      +",    +    
 
      " :   "",   "  "      "#)#  '.    !" A . 
 
     !        "     "   C A S E     !"  !    '
 
     " !" "        , "      +/"!/        !",!",
 
      " ,     !#.)/        !    E L S E .       !,      " ; " 
 
     #!"  #  E L S E     E N D      "   C A S E . 
 
 
 
     <  "   " C A S E " > : : = C A S E < + >   O F 
 
                                 < ," ">   ( * ; < ," "> * ) 
 
                               [ E L S E   <  " > ]   E N D 
 
     < A ," "> : : = < !!  "  + > : <  " > 
 
     < !!  "  + > : : = < "  + > ( * , < "  + > * ) 
 
 
 
               +: 
 
 
 
     C A S E    &/  O F                                       C A S E   I   O F 
 
               .!: %: = X + Y ;                                                   1 : X : = S I N ( X ) ; 
 
               #!: X : = X - Y ;                                                 2 : X : = C O S ( X ) ; 
 
               #: X : = X * Y ;                                                 3 : X : = E X P ( X ) ; 
 
   E N D                                                                                 4 : X : = L N ( X ) ; 
 
                                                                         E N D 
 
 
 
                   R E P E A T 
 
                                   R E A D L N ( C H ) ; 
 
                                   C A S E   C H   O F 
 
                                                   ' A ' : A P P E N D ; 
 
                                                   ' D ' : D E L E T E ; 
 
                                                   ' I ' : I N S E R T ; 
 
                                                   ' N ' : N E W F I L E ; 
 
                                                   ' Q ' : ; 
 
                                                   E L S E 
 
                                                     W R I T E L N ( ' " ' , C H , ' "   I S   N O T   L E G A L ' ) 
 
                                   E N D ; 
 
                   U N T I L   C H   =   ' Q ' ; 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 9 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             7 . 2 . 3 .   &+
 
 
 
 
 
 
 
                " +      &       !+."       "      +
 
     " +%   " .   !    '!    "     !"     , 
 
     ". .       '    +/    &,     "    %/)    !" #&
 
     //"!/   "   " F O R " ;     !",+%  !#'/%  !#"  !,",
 
      "   " W H I L E "      "   " R E P E A T " . 
 
 
 
     <  "   &> : : = <  "   " W H I L E " >   ! 
 
                                           <  "   " R E P E A T " >   !   <  "   " F O R " > 
 
 
 
 
 
 
 
         7 . 2 . 3 . 1 .    "   " W H I L E " 
 
 
 
 
 
 
 
     <  "   " W H I L E " > : : = W H I L E < + > D O <  " > 
 
 
 
     + ,   # /.)  " /,     ",  '!  ". 
 
      "     "     !,#"!/        "%     ,           '
 
     + /    !""  " F A L S E " .   !    '    + /    !    !
 
     '  " F A L S E " ,   "   "     +/"!/. 
 
 
 
               O  "   " W H I L E " : 
 
 
 
               W H I L E   E   D O   S 
 
 
 
     -"  !" #&: 
 
 
 
             I F   E   T H E N 
 
                   B E G I N   S ; 
 
                         W H I L E   E   D O   S 
 
                   E N D 
 
 
 
               +: 
 
 
 
       W H I L E   A ( I )   < >   X   D O   I : = I + 1 
 
 
 
       W H I L E   I > 0   D O 
 
       B E G I N   I F   O D D ( I )   T H E N   Z : = Z * X ; 
 
                 I : = I D I V 2 ; 
 
                 X : = S Q R ( X ) 
 
       E N D 
 
 
 
       W H I L E   N O T   E O F ( F )   D O 
 
       B E G I N   P ( F ^ ) ;   G E T ( F ) 
 
       E N D 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 0 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
         7 . 2 . 3 . 2 .    "   " R E P E A T " 
 
 
 
 
 
 
 
     <  "   " R E P E A T " > : : = 
 
         R E P E A T <  " > ( * , <  " > * ) U N T I L < + > 
 
 
 
               + ,   # /.)  " /,     ",  '!
 
     ".     !",!",     "       #      R E P E A T             U N T I L 
 
     +/"!/  "   (                  "%     ,     
 
     '  !""!"#.)  + /    !""  T R U E . 
 
 
 
                "   " R E P E A T " : 
 
 
 
               R E P E A T   S   U N T I L   E 
 
 
 
     -"   " #: 
 
 
 
         B E G I N   S ; 
 
         I F   N O T   E   T H E N 
 
                 R E P E A T   S   U N T I L   E 
 
         E N D 
 
 
 
               +: 
 
 
 
     R E P E A T   K : = I   M O D   J ; 
 
                   I : = J ; 
 
                   J : = K ; 
 
     U N T I L   J = 0 
 
 
 
     R E P E A T   P ( F ) ; G E T ( F ) 
 
     U N T I L   E O F ( F ) 
 
 
 
 
 
 
 
         7 . 2 . 3 . 3 .    "   " F O R " 
 
 
 
 
 
 
 
                "         " F O R "          !+"        "         +
 
     !""!"#.)     "               !/       , 
 
     +       "       &,       "       !",!"
 
     '. 
 
 
 
     <  "   " F O R " > : : = F O R <  "   &> : = < !!  &>   D O 
 
                                               <  " > 
 
     < !!  &> : : = <    '> 
 
                                         "  < !  '>   ! 
 
                   <    '>   D O W N T O   < !  '> 
 
     <  "   &> : : = < "$" > 
 
     <    '> : : = < + > 
 
     < !  '> : : = < + > 
 
 
 
      " +  &,      '    !  '  +  +",
 
         "    !/   "  (     " )             +
 
     /",!/  " /+    &   " . 
 
 
 
               &  !   "   : 
 
                                                               C T P .   3 1 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                   F O R   V : =   E 1   T O   E 2   D O   S 
 
 
 
     -"  !",!"   " : 
 
 
 
                   V : = E 1 ;   S ;   V : = S U C C ( V ) ;   S ; . . . ;   V : = E 2 ;   S ; 
 
 
 
       &  !   "   : 
 
 
 
                   F O R   V : = E 1   D O W N T O   E 2   D O   S 
 
 
 
     -"  !",!"   " : 
 
 
 
                 V : = E 1 ;   S ;   V : = P R E D ( V ) ;   S ; . . . ;   V : = E 2 ;   S ; 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   !  '     "     !""!/
 
      +  !   (/  &. 
 
 
 
               +: 
 
 
 
     F O R   I : = 2   T O   1 0 0   D O   I F   A [ I ] > M A X   T H E N   M A X : = A ( I ) 
 
 
 
     F O R   I : = 1   T O   N   D O 
 
     F O R   J : = 1   T O   N   D O 
 
     B E G I N   X : = 0 ; 
 
         F O R   K : = 1   T O   N   D O   X : = X + A ( I , J ) * B ( K , J ) 
 
         C [ I , J ] : = X 
 
     E N D 
 
 
 
     F O R   &: =  !  "  #  D O   Q ( &) 
 
 
 
 
 
 
 
         7 . 2 . 3 . 4 .    "   E X I T 
 
 
 
 
 
 
 
                "   E X I T   !,#"!/  /    +%        "        
 
     " &+%   "   ( W H I L E ,   R E P E A T ,   F O R ) .     ,   !    
 
     "&: 
 
 
 
                   F O U N D   : =   F A L S E ; 
 
                   F O R   I   : =   1   T O   T A B L E S I Z E   D O 
 
                                   I F   T A B L E [ I ]   =   K E Y 
 
                                         T H E N   B E G I N   F O U N D : = T R U E ;   E X I T   E N D ; 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 2 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             7 . 2 . 4 .    "     !/  " W I T H " 
 
 
 
 
 
 
 
     <  "   " W I T H " >   : : =   W I T H < !!   +%- 
 
                                                                   !> 
 
                                                                   D O   <  " > 
 
     < !!   +%- !>   : : =   <  /  !,> 
 
                                                                 ( * , <  /  !,> * ) 
 
 
 
                    %    #"      "              "       " W I T H " 
 
     "+  ( /)    - !,               , 
 
     #"  '",!/    ",  !  "$"   /,     ". . 
 
          (!"#.)        !/        E P E       !. 
 
     $"'!       " +                !/         !( /."        !",
 
      !"  "$"   /         - !, 
 
     "  '"  "$" +  /  #"  +!"#",,         "$" +
 
      +%. 
 
 
 
                 : 
 
 
 
     W I T H   D A T A   D O 
 
     I F   M E C   =   1 2   T H E N 
 
     B E G I N   M E C   : =   1 ;     : =     + 1 
 
     E N D 
 
     E L S E   M E C   : =   M E C   +   1 
 
 
 
               -""   "   -"  "#: 
 
 
 
     I F   D A T A . M E C   =   1 2   T H E N 
 
     B E G I N   D ". C   : =   1 ;   D ". : = D ".   + 1 
 
     E N D 
 
     E L S E   D ". !: =   D ". !  +   1 
 
 
 
                  " %    !/      ! ",!/   !
 
       !!"/.)  !!   +%  !. 
 
 
 
                "   " W I T H "   "  ",  # ,  !"      +(    4 . 
 
     !  !+  + /  !,#."!/  #"     -"     " ,     "
 
     # ,  !"  "  +",      2     3 . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 3 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                                 8 .   O !   &# 
 
 
 
 
 
 
 
 
 
               '  !   &#   -    ",  '!"    +    
 
     !/",  !    "$" +,   !  "  '"+  -"  '!"        +",
 
     " +   "    &# .   !   &# +  !!""    
 
     !#.)%  '!",   ./        " +%,         !.'         
 
     !,   "  +",  #!": 
 
 
 
     < !   &# +> : : = <    &# +> 
 
                                               <    !  "> / 
 
                                               <       !""> / 
 
                                               <       "> / 
 
                                               <    !   +%> / 
 
                                               <    !   &#     $#&> / 
 
                                               <     " > 
 
 
 
                      &# +      "      "$" ,         #.)
 
      &# #,         "$" +    $ ,+%     "     ( !    
 
     !",) .    "   #"    +",     " +-  +,     - '/, 
 
     -  &# +     " +- $#&. 
 
 
 
     <    &# +> : : = P R O C E D U R E < "$" > ; ! 
 
         P R O C E D U R E < "$" > ( < !&/  $ ,+%   " > 
 
                             ( * ; < !&/  $ ,+%   " * ) ) ; 
 
     < !&/  $ ,+%   " > : : = <  #   " > ! 
 
                       V A R   <  #   " > ! 
 
                       F U N C T I O N   <  #   " >   ! 
 
                       P R O C E D U R E   < "$" >   ( * ; < "$" > * ) 
 
     <  #   " > : : = 
 
                           < "$" > ( * , < "$" > * ) 
 
                           : < "$"   "> 
 
 
 
                #+       "              (!"#.)        !&$" 
 
     !'"."!/   " - '/. 
 
 
 
                      !        "        !&$& #"        !        ", 
 
     +       &# : 
 
 
 
     <    !  "> : : = < #!"> ! 
 
                                         L A B E L   < ">   ( * , < "> * ) ; 
 
 
 
     <       !""> : : = < #!"> ! 
 
                                                           C O N S T <    !""+> 
 
                                                           ( * ; <    !""+> * ) ; 
 
 
 
     <       "> : : = < #!"> ! 
 
                         T Y P E <    "> ( * ; <    "> * ) ; 
 
 
 
     <    !   +%> : : =   < #!"> ! 
 
               V A R < !   >   ( * ; < !   > * ) ; 
 
 
 
     <    !   &#     $#&> : : = 
 
                                             ( * < !   &# +    $#&> ; * ) 
 
     < !   &# +    $#&> : : = < !   &# +> ! 
 
                                                                           < !  $#&> 
 
                                                               C T P .   3 4 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                   "   "   "'!    !"/,     " +
 
     +  +",  ++    !     )/         &#     !    ),.
 
      "    &# +: 
 
 
 
     <     " > : : = < !!"   " > 
 
 
 
               !      "$" +,       +                   $ ,+%
 
      " ,         !"",   ",      !
 
      +%     &#     $#&,     ,+            !
 
      &# +,     "     +"!/    !",.       !"      -"%
 
     "$" .                   !"#+                !        !"
 
      !".   '/  ,+%   +%      "    %    
 
     "         +.       !,            "       &# +      
 
     !!"         #"     # !    +    -"
 
      &# +. 
 
 
 
               !"!'!  !",   &#     "  +",        1 0 . 
 
        +    !",      +"!/     ',     
 
     ,(/  !",      # !  "     !"        !' +.
 
      '  /". 
 
 
 
                 +  !   &# : 
 
 
 
     P R O C E D U R E   B I S E C T ( F U N C T I O N   F : R E A L ;   A , B : R E A L ;   V A R   Z : R E A L ) ; 
 
         V A R   M   : R E A L ; 
 
       B E G I N   ( *    "!/  '"  F ( A ) < 0     F ( B ) > 0   * ) 
 
       W H I L E   A B S ( A - B )   >   1 E - 1 0 * A B S ( A )   D O 
 
       B E G I N   M   : =   ( A + B ) / 2 . 0 ; 
 
                     I F   F ( M ) < 0   T H E N   A   : =   M   E L S E   B   : =     M 
 
       E N D ; 
 
       Z : = M 
 
       E N D 
 
 
 
                &#     ( $#&/)     "    +",    +     ,(, '      
 
      ,     !    !",    !!+    "  "       -       F O R W A R D .       !!
 
      "     "  '",   #,""  !+"!/  ",    
 
     F O R W A R D   !!+,     : 
 
 
 
     P R O C E D U R E   Q ( X : T ) ;   F O R W A R D ; 
 
     P R O C E D U R E   P ( Y : T ) ; 
 
           B E G I N   Q ( A )   E N D ; 
 
     P R O C E D U R E   Q ;     ( *  " +    " /."!/* ) 
 
           B E G I N   P ( B )   E N D ; 
 
     B E G I N   P ( A ) ; Q ( B ) 
 
     E N D . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 5 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                 8 . 1 .   !" "+   &# +
 
 
 
 
 
 
 
                "!/,   '"  !" "+   &# +       !+    
 
     .     &      /+      !,.       ./       &/      "
 
     ",    ",      "             !+       &# +. 
 
     !,#    ,             !    !" "+      '+,       !'"."!/
 
     !+    !"   !",   %"+.)  !.      #, 
 
     !#.    !,   "  /      -"          !, 
 
       /.)%  -"  "$" +,      "    $". 
 
 
 
               !" "+   &# +   '!+    ' /!+  . 
 
 
 
 
 
 
 
             8 . 1 . 1 .    &# +   "+  !  $
 
 
 
 
 
 
 
     P U T ( F ) 
 
                   -    !/"  '  #$          F ^         $#
 
                       " F " .      ",    !#',        !
 
                       '   "  E O F ( F )   !",    T R U E ;     E O F ( F )     !% /"
 
                       '  T R U E ,   '    F ^   !""!/   +; 
 
 
 
     G E T ( F ) 
 
                   -   !)"  "#)#.  &.  $  ( #  '"/- !)   
 
                       !#.)#.    "#           !+"      '      -"
 
                       "+    #$          F ^ .       !      !#.)
 
                       "+    !#)!"#",   "  '  F ( F )   !""!/
 
                       T R U E ,     '    F ^          .      #,""    G E T ( F ) 
 
                       O      ",      ",                    !
 
                       !""!"#.)  +  E O F ( F ) = F L S E ; 
 
 
 
     R E S E T ( F ) 
 
                   -    )"    "#)#.    &.    $        '    $    
 
                        !+"    #$          F ^     A '     
 
                       -"  " F " .   '  E O F ( F )     !""!/    F A L S E ,     !
 
                       " F "     #!";      T     !#'    F ^          ,     
 
                       'E   E O F ( F )   !""!/  T R U E ; 
 
 
 
     R E W R I T E ( F ) 
 
                   -   #'""  "#)  '  " F " ,   "  '"  "    '",!/
 
                           $;   E O F ( F )    "  '  T R U E ; 
 
 
 
     B R E A K ( F ) 
 
                   -   ++"  +  +    )    #$ 
 
                       ( )     $.     -"        !,",          "    !
 
                       " ,         ,       /      +      !      
 
                       !)/.     !#"    """,,     '"    +    !,    
 
                       #$ #"   "#  !    ,     " +%    !"    '"
 
                         //."!/  " " "+" ,   "    +%    $
 
                         #'.  . 
 
 
 
     P A G E ( F ) 
 
                   -   !"/"   "    %",    '        !" &+
 
                          '",.  !#.)  !"   "!"  $. 
 
                                                               C T P .   3 6 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                 : 
 
 
 
                   V A R   F : T E X T ; 
 
                   B E G I N 
 
                       R E W R I T E ( F , ' T T : ' ) ; 
 
                       W R I T E L N ( F , ' "  #.  !" #' ) ; 
 
                       B R E A K ( F ) ;         ( *   +!"  +    "":   * ) 
 
                   E N D . 
 
 
 
     C L O S E ( F ) 
 
                   -    !+"    (  #!" !"      &  +
 
                       #$ ,   #!" /"  !/,  !  (    $        !"
 
                       #$ #.  /",  /  !,/             #%    &/%. 
 
                        &# +  " R E S E T "       " R E W R I T E "     +     (!"",
 
                       !/   "  !  $   . 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .        &# A       " C L O S E "       !      
 
     !,",!/    &     "+    !    $,     !+      
 
     ( +%+  $) ,   '    " /",    !    #$ , " +
 
       #"  !    $.    +  $  /        //"!/
 
     /",+,     /"  !",  #$ #.  /",. 
 
 
 
 
 
 
 
             8 . 1 . 2 .   ",+   #"+  /  " R E S E T "     " R E W R I T E " 
 
 
 
 
 
 
 
                    &   !( +  !" "+   &# +    " R E S E T " 
 
       " R E W R I T E "   " /  ",+   "   /  #/    !/
 
     #  #"   $+     +        $        (%
 
     #!" !"%
 
 
 
     P R O C E D U R E   R E S E T ( F : F I L E ; N A M E , D E F E X T : S T R I N G ; 
 
                                     V A R   L E N : I N T E G E R ) 
 
 
 
                &#   R E S E T   !/+"  $#.   #.  !  !#)!"#.)
 
     (  $,     "  #!""  #",  $         +
 
     -"    ( !,) .     " F "     !         !#"!"",          +",
 
     $   .   /  $  " N A M E "        !(         $
 
     +  ",  "  " A R R A Y   O F   C H A R " . 
 
 
 
               /    $          !""!"",       /"#            !
 
     !" "#  '.    "  .'",  /       #!" !", 
 
       "  "  $.     !        "      "     "!#"!"#"    "
 
     $, "    #'.  #"  !,  "  " D A T " . 
 
 
 
                /  " L E N "   #'"  ',        '!#        
 
     5 1 2   "    $,     -   1 ,   !  $    .   !#"    #'!",, 
 
     '"  !    -""     "         !,,     "    "!#"!"    $
 
      "    $",  (    +. 
 
 
 
 
 
     P R O C E D U R E   R E W R I T E ( F : F I L E ;   N A M E , D E F E X T : S T R I N G ; 
 
                                         V A R   L E N : I N T E G E R ) 
 
 
 
                &#     " R E W R I T E "       !"      +      $            (
 
                                                               C T P .   3 7 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     #!" !".    " +  " N A M E "       " D E F E X T "     ."    "        '
 
     ( !+!) ,   '"    /   &# +  " R E S E T " .      "     " L E N "     #+"
 
         !  $    %    5 1 2   ". 
 
 
 
                 : 
 
 
 
                   V A R   N A M E :   A R R A Y [ 1 . . 2 0 ]   O F   C H A R ; 
 
                           I N F , O U T F :   T E X T ; 
 
                           ( *        !!"    " F I L E   O F   C H A R   * ) 
 
                           L E N :   I N T E G E R ; 
 
                   B E G I N 
 
                           ( *   !/",  O U T F   !  #!" !"  '"  * ) 
 
                           R E W R I T E ( O U T F , ' L P : ' ) ; 
 
                           R E P E A T 
 
                                   W R I T E ( ' F I L E N A M E :   ' ) ; 
 
                                   ( *    !",  /  $  !  "   * ) 
 
                                   R E A D L N ( N A M E ) ; 
 
                                   ( * !/",  I N F   !  !#)!"#.)  $  * ) 
 
                                   R E S E T ( I N F , N A M E , ' P A S ' , L E N ) 
 
                           ( *   " /",    $    #"  " +"  * ) 
 
                           U N T I L   L E N < > - 1 ; 
 
                   E N D . 
 
 
 
 
 
 
 
             8 . 1 . 3 .    &#   '!   )/
 
 
 
 
 
 
 
     N E W ( P ) 
 
                   -    )"  #.   #.  V      !+E T   !!+#        V 
 
                        - #".  P ; 
 
 
 
     D I S P O S E ( P ) 
 
                   -   !"  /",, #.     P ^ ; 
 
 
 
               !  "  V   -   -"  "  !  !   ",   "    +%  " N E W " 
 
         " D I S P O S E "     +/"!/        !"!/    !,/    !",
 
     /",   %/  /  !. 
 
 
 
     N E W ( P , T 1 , . . . , T N ) 
 
                   -   "    +",    !,    /       )/       "
 
                        "  (   !#'  !  !     ")     !    '/
 
                       /     T 1 , . . . , T N .   -"    '"  '/  /
 
                        . 
 
 
 
     D I S P O S E ( P , T 1 , . . . , T N ) 
 
                   -   !"    /",, #.       "      !      !
 
                       '/    /         T 1 , . . . , T N .       '      /
 
                                    +",        "'        ",         " /
 
                       !,!,  /   )/   . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 8 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             8 . 1 . 4 .   $+   /  !"#
 
 
 
 
 
 
 
                /       &/      !/        ! "        !,
 
           &# ,     " +      !      " !/&      !"      !
 
           !'."     /    !"#        -"      $
 
      . 
 
 
 
       P R O C E D U R E   S E E K ( V A R   F : R A N F I L ;   V A R   D A T A : U S E R T Y P E ; 
 
                                     N : I N T E G E R ) 
 
 
 
                &#     " S E E K "      )"    N - +    -"    $    " F "       
 
        " D A T A " .   #!""!/  E O F ( F ) ,   !  #+  -"
 
       !#)!"#". 
 
 
 
       P R O C E D U R E   D E P O S I T ( V A R   F : R A N F I L ;   V A R   D A T A : U S E R T Y P E ; 
 
                                           N : I N T E G E R ) 
 
 
 
                &#   " D E P O S I T "   !"    '         " D A T A "     
 
     $  " F "     '!"  N -   -"    ( !) .          %!"
 
     $   !( /"!/. 
 
 
 
       P R O C E D U R E   C L O S E R A N D O M F I L E ( V A R   F : R A N F I L ) 
 
 
 
               /   &#     !,",!/    /     +"/    $
 
      /  !"#  ( !"  " C L O S E " ) . 
 
 
 
         T Y P E   U S E R T Y P E = A R R A Y [ 0 . . 2 5 5 ]   O F   I N T E G E R ; 
 
 
 
         T Y P E   R A N F I L = F I L E   O F   U S E R T Y P E ; 
 
 
 
               $  F   " +"!/   &#   R E S E T ,     !"!/     &# 
 
     R E W R I T E .      !  $    %    !",    %"/    +    
 
     -". 
 
 
 
 
 
 
 
                 8 . 2 .    &# +  / +
 
 
 
 
 
 
 
               !" "+    !,    ! "     /    #%      $+%
 
      +%    " I N P U T "         " O U T P U T " ,     " +    //."!/    $    
 
     #'.  /  " R E A D "     " W R I T E " .     -"#    " R E A D ( I ) "     -"
 
     " R E A D ( I N P U T , I ) " .         !,      /    ,      +
 
     " I N P U T "     " O U T P U T "     ",     +.     '!"  $
 
       #'.  !,#"!/  "   /   &#   " R E A D "     " W R I T E " . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 9 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             8 . 2 . 1 .    &#   R E A D 
 
 
 
 
 
 
 
               /     &# +      R E A D       !"#."      !#.)      '/: 
 
     F - "!"+  $; V 1 , . . . , V N -  " +   &# +. 
 
 
 
               !" "/     &#     R E A D     #!"     ,    '!
 
      " , "  '": 
 
 
 
     R E A D ( F , V 1 , . . . , V N )   '"  R E A D ( F , V 1 ) ; . . . ; R E A D ( F , V N ) 
 
 
 
      " +  #"  +",  " , &, )!"  "        "
 
     !!.      !#'  !'"+"!/  ",  ' /  " ,   #%
 
     !#.)%-     !'"+"!/    !",!",    " ,  !"/.)%
 
     !  &    )!"  '!    !""!"    !    !"!!
 
     /+  !,  ( !",+  '!  +  "/",!/   
 
       !    &    !" ) .         !    !#'        ##"
 
     !'"+",!/,   '/  !  "#)  /  #"/    $,   
 
       !" ""!/   ,   /"/    &  !" .        -"    !" 
 
     #"  +   !         ( !    !"     ,(
 
     !!) ,     #!'  !   ( !  !"   ,(  !!) . 
 
 
 
 
 
 
 
             8 . 2 . 2 .    &#   R E A D L N 
 
 
 
 
 
 
 
               !" "/   &#   R E A D L N      #!"        %    $
 
     !+    "%   ,     !" ""!/  &  !" . 
 
 
 
           R E A D L N ( F )    ""  "  : 
 
             W H I L E   N O T   E O L N ( F )   D O   G E T ( F ) ; 
 
             G E T ( F ) 
 
 
 
     R E A D L N ( F , V 1 , . . . , V N )   '"  R E A D ( F , V 1 , . . . , V N ) ; R E A D L N ( F ) 
 
 
 
 
 
 
 
             8 . 2 . 3 .    &#   W R I T E 
 
 
 
 
 
 
 
               /     &# +    W R I T E       !"#."      !#.)      '/: 
 
     F - "!"+    $;     P 1 , . . . , P N -  " +     &# +;     E - + ; 
 
     M , N - + /  "  I N T E G E R   ( $ "+  +) . 
 
 
 
               !" "/   &#     W R I T E     #!"     ,    '!
 
      " , "  '": 
 
 
 
     W R I T E ( F , P 1 , . . . , P N )   '"  W R I T E ( F , P 1 ) ; . . . ; W R I T E ( F , P N ) 
 
 
 
     +   "    "  #    !#.)%  $ : 
 
 
 
               E             E : M             E : M : N 
 
 
 
     E     "    +",    " , &, )!"          '!
 
                                                               C T P .   4 0 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     ",         "        !!.           '/            #."!/          
 
     !",!",        M     " .     !    '    E     /    !
 
      !"/    " #"    ,(    !, '      M , "      /."!/
 
      +, "  '"  +"!/  "'  M   !.     !    M     ,(, '
 
     %    /    +    '+      E ,       "      +"!/      !",
 
     !, !,  " #"  E   /  !     !"/    ( M         -"
 
     !#'    #"!/) .   N          ",         " , .)
 
     )!"    '        "    '!    &$ , '"+%      !
 
     !/"'  "'.   !  N   #), "  '!  '""!/        $     !
 
     .)  "'.   !  M   #), "    #'.  /   +%  "
 
     '."!/  !#.)  '/  M : 
 
 
 
                 " +          - - - -     1 
 
                 &+                - - - -   1 3 
 
                 )!"+  - - - -   1 3 
 
                 '!      - - - -     6 
 
 
 
                &#   " W R I T E "   #"  +",  &+  '!      !, '
 
     ,   !  +     /    $ "    +    #"    " &",+, 
 
       : 
 
 
 
                   ( *   +!"  " I "     !,.   -   5     * ) 
 
                   W R I T E ( I : - 5 ) ; 
 
 
 
           : 
 
 
 
           #!",  K = 1 3 5 ,   N = 4 ,   X = 7 2 . 8 3 ,   B = T R U E ,   C = ' A ' ,   "
 
           W R I T E ( K + K : N , X : 1 2 , X : 6 : 1 , "     A " , C , B ) 
 
   +"  !",!",  " 
 
     2 7 0   7 . 2 8 3 0 E + 0 1     7 2 . 8     A A     T R U E 
 
 
 
 
 
 
 
             8 . 2 . 4 .    &#   W R I T E L N 
 
 
 
 
 
 
 
               !" "/   &#   W R I T E L N ( F )   !,#"!/, '"+  '",
 
     +%#.  !" #    '",  #..     /"      &  !" 
 
       $#  F . 
 
 
 
     W R I T E L N ( F , P 1 , . . . , P N )   '"  W R I T E ( F , P 1 , . . . , P N ) ; W R I T E L N ( F ) 
 
 
 
               /    $         &# %    R E A D , R E A D L N , W R I T E , W R I T E L N       
 
     #!"",.   #'.    '!"  $  !,#"!/  " . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 1 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             8 . 2 . 5 .   / +  !  " 
 
 
 
 
 
 
 
               !" "+  !,  " #",   '"+   +  -"  $    +
 
     #'              ! !"    !     "+       &# +
 
     " R E S E T "       ( #$ /       /      F ^       #'"      -"      '
 
     ) .   -"   "    !!"/,     !        '!"    $
 
     !,#"!/  " .     ,   !  %  $        #'.
 
     //"!/  " ,   "  !" "  " #"           
 
     !"      #!    +    +. 
 
 
 
                    &  !/  !,#"!/    !#.)     (
 
     -"     +.             +/"!/       &#       " R E S E T "       /
 
     " "    " ,     "      #$ /       /      #'"
 
     '       " E O L N " .      -"   ,     &        
 
      !%".   +  !#.)   !  " R E A D "   !  -"  "!/
 
     " #+%  +%. 
 
 
 
               -"  /"   (",  ,(!"             !    " 
 
     #" ",+     ,         !#"      ",,       '"      -"
 
      "  " +   #  " #!",     : 
 
 
 
                   V A R   L I N E :   A R R A Y [ 1 . . 7 2 ]   O F   C H A R ; 
 
                           C O U N T :   I N T E G E R ; 
 
                   B E G I N 
 
                           C O U N T : = 0 ; 
 
                           W H I L E   N O T   E O L N   D O   B E G I N 
 
                                   C O U N T : = C O U N T + 1 ; 
 
                                   R E A D ( L I N E [ C O U N T ] ) 
 
                                   E N D ; 
 
                           R E A D L N 
 
                   E N D . 
 
 
 
                          +"!/    !" "/    !%    /
 
     '"/  !"     !  " .     -""  !!   /"!/  
 
     " "#  $#,   "        "'",    #!"#.    !" #    
 
     !" #,   ! )#.     .   -"  !/  !  ",   '"  " E O L N "     
 
     "  +",  #!",       !" ""!/    &    !"     /
 
      (/   !  " R E A D " . 
 
 
 
 
 
 
 
                 8 . 3 .   &  $
 
 
 
 
 
 
 
                 !  $   !"/"!/    !",!",.        
 
     5 1 2   "  +.      -"    &  $  "!#"!"#"     &
 
     $.   -"#  $#&/  " E O F "       !    !'"     ,#.
 
     &.  &    $.      (",    -"#     #    ,     !,#/
 
     !'"'    !        $        #"    !,/    !,
 
     !,   " /  #"  +!"#",    '!"     &. 
 
 
 
               /       "!"!/    "!"+  $,     " +    
 
     '!"     &  !,#."    < C T R L / Z > . 
 
 
 
 
 
                                                               C T P .   4 2 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                                 9 .   !/  $#&
 
 
 
 
 
 
 
 
 
               !/  $#&  !#"  /     /    '!"      +, 
 
     +'!/.)%  !/         #",    '.      )    
 
     $#&  !#)!"/"!/  !  ),.  #"    $#&,     //.)%!/
 
     '!"/  + .   !  $#&    !!""        !#.)%    !
 
     '!",   /    " +%,       !.'             !, 
 
     "  +",  #!". 
 
 
 
     < !  $#&> : : =   <   $#&> 
 
                                             <    "> / 
 
                                             <       !""> / 
 
                                             <       "> / 
 
                                             <    !   +%> / 
 
                                             <    !   &#     $#&> / 
 
                                             <     " > 
 
 
 
                 $#&  "  "$" ,   '.)    #.
 
     $#&.,   $ ,+   " +  $#&      ": 
 
 
 
     <   $#&> : : = F U N C T I O N < "$" : 
 
                                                   < "   #,""> ; ! 
 
                                                   F U N C T I O N < "$" > 
 
                                                   ( < !&/  $ ,+%   " > 
 
                                                   ( * ; !&/  $ ,+%   " > * ) ) : 
 
                                                 : < "   #,""> 
 
     < "   #,""> : : = < "$"   "> 
 
 
 
               "  $#&    +",  !/ +,   "   "        "
 
     #"/.      %  !/  $#&    ! ",!/  %"/  +
 
        "    !/,    !.)  '  "$" #
 
     $#&.   %  "$"   $#&    #T ,    $#&    
 
      %    !/   #"     # !    !    -"
 
     $#&. 
 
 
 
               Q +  $#&    "    +",     ,(        !/, !    !",
 
     F O R W A R D   !!+.   ( !.   . 8 . ) 
 
 
 
 
 
         +: 
 
 
 
     F U N C T I O N   S Q R T   ( X   :   R E A L )   :   R E A L ; 
 
         V A R   X O , X 1   :   R E A L ; 
 
     B E G I N   X 1 : = X ;   ( * X   >   1 ,   M E T O   ,."* ) 
 
         R E P E A T   X 0 : = X 1 ;   X 1 : = ( X 0   +   X / X 0 )   *   0 . 5 
 
         U N T I L   A B S ( X 1   -   X 0 )   <   E P S * X 1 ; 
 
         S Q R T : = X 0 
 
     E N D 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 3 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     F U N C T I O N   M A X ( A   :   V E C T O R ;   N   :   I N T E G E R )   :   R E A L ; 
 
                   V A R   X   :   R E A L ;   I   :   I N T E G E R ; 
 
     B E G I N   X   : = A [ 1 ] ; 
 
                   F O R   I   : = 2   T O   N   D O 
 
                   B E G I N   ( *   X = M A X ( A [ 1 ] . . . A [ I - 1 ] )   * ) 
 
                   I F   X < A [ I ]   T H E N   X   : =   A [ I ] 
 
                   E N D ; 
 
                   ( *   X   =   M A X ( A [ 1 ] . . . A [ N ] )   * ) 
 
                   M A X : = X 
 
     E N D 
 
 
 
     F U N C T I O N   !",  ( X : R E A L ;   Y : I N T E G E R )   : R E A L ;   ( *   Y > = 0   * ) 
 
                   V A R   W , Z   ;   R E A L ; I   :   I N T E G E R ; 
 
     B E G I N   W   = :   X ;   Z   : =   1 ;   I   : =   Y ; 
 
                   W H I L E   I   < >   0   D O 
 
                   B E G I N   ( *   Z   *   W * * I   =   X * * Y   * ) 
 
                   I F   O D D ( I )   T H E N   Z   : =   Z * W ; 
 
                   I   : =   I   D I V   2 ;   W   : =   S Q R ( W ) 
 
     E N D   ( *   Z   =   X * * Y   * ) ; 
 
     !",  : =   Z 
 
     E N D 
 
 
 
 
 
 
 
                 9 . 1 .   !" "+  $#&
 
 
 
 
 
 
 
                A "!/,   '"  !" "+  $#&         !+    
 
     .   &  /+  !,.   ./     &/    "    ",
 
     ",  "     !+  $#&. 
 
 
 
                 !#"  !!  !" "+%  $#&  !  /!/. 
 
 
 
 
 
 
 
             9 . 1 . 1 .    $"'!  $#&
 
 
 
 
 
 
 
     A B S ( X ) 
 
                   -   +!/"    !."#.    '#    %.     "    %        +",
 
                       )!"+    &+,   "   #,""  !"  !  "
 
                       %; 
 
 
 
     S Q R ( X ) 
 
                   -   +'!/"    %        2 -     !".     "      %            +",
 
                       )!"+    &+,   "   #,""  !"  !  "
 
                       %; 
 
 
 
     S I N ( X )         \ 
 
     C O S ( X )         ! 
 
     E X P ( X )         !             T   %    +",  )!"+
 
     L N ( X )           !               &+;    #,""  "
 
     S Q R T ( X )       !             )!"+  ". 
 
     A R C T A N ( X )   / 
 
 
 
 
 
                                                               C T P .   4 4 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
     E X P 1 0 ( X )     \ 
 
                         !             '  E X P ( X )     L N ( X ) , 
 
     L O G ( X )         /                 !.  1 0 ; 
 
 
 
 
 
 
 
             9 . 1 . 2 .    "+
 
 
 
 
 
 
 
     O D D ( X ) 
 
                   -   "  %    +",  &+,    #,""     T R U E     , !    X - 
 
                       '!  '", ". .   " X   M O D   2   =   1 " ; 
 
 
 
     E O F ( F ) 
 
                   -   #+",   %"!/      $    " F "         !!"/    " &
 
                       $" . 
 
 
 
 
 
 
 
             9 . 1 . 3 .   $#&    /
 
 
 
 
 
 
 
     T R U N C ( X ) 
 
                   -   %    +",  )!"  ",      #,""    "    "
 
                       &+  ( I N T E G E R )     #'"!/         " !+     
 
                       '!"  X , ". .   !  %> = 0 ,   "  %- 1 < T R U N C ( X ) < = X ;   !  X < 0 ,   "
 
                       X + 1 > T R U N C ( X ) > = X ; 
 
 
 
     R O U N D ( X ) 
 
                   -   X     +",  )!"  ",  #,""( &  ") - 
 
                       &  '!, (    X ,   ". .   :     R O U N D ( X ) = T R U N C ( X + 0 . 5 ) 
 
                       /  X > = 0 ;     T R U N C ( X - 0 . 5 )   /  X < 0 ; 
 
 
 
     O R D ( X ) 
 
                   -   X     +",  "   ",    #,""  ( &  ")     - 
 
                       -"       /+               " +        %                
 
                       !",!"    " .      #,""    O R D ( X )     #"      
 
                         ( - 1 2 8 . . 1 2 7 ) . 
 
 
 
     C H R ( X ) 
 
                   -   X     +",  &  ",    #,""  ( "   ")     - 
 
                       -"  " ,    /+     "      %. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 5 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
             9 . 1 . 4 .   $#&/  " T I M E " 
 
 
 
 
 
 
 
               $#&/        " T I M E "          )"        '        "        R E A L , 
 
     !""!"#.)     /    '!%  !  #'.   "'!",  -"
 
     $#&        !#+,     : 
 
 
 
           P R O C E D U R E   W R I T E T I M E ; 
 
           V A R   R : R E A L ; 
 
                           H O U R S , M I N U T E S : I N T E G E R ; 
 
                           A M P M :   A R R A Y   [ 1 . . 2 ]   O F   C H A R ; 
 
           B E G I N 
 
               R : = T I M E ; 
 
               H O U R S : = T R U N C ( T I M E ) ; 
 
               M I N U T E S : = T R U N C ( ( R - H O U R S ) * 6 0 . 0 ) ; 
 
               I F   H O U R S   >   1 2 
 
                           T H E N   A M P M : = ' P M ' 
 
                           E L S E   I F   ( H O U R S   =   1 2 )   A N D   ( M I N U T E S   =   0 ) 
 
                               T H E N   A M P M : = ' M   ' 
 
                               E L S E   A M P M : = ' A M ' ; 
 
               W R I T E ( ' A T   T H E   T O N E   T H E   T I M E   W I L L   B E :   ' ) ; 
 
               W R I T E ( ( H O U R S + 1 1 )   M O D   1 2   +   1   : 2 ) ; 
 
               W R I T E ( ' : ' ,   M I N U T E S   D I V   1 0 : 1 , 
 
                                     M I N U T E S   M O D   1 0 : 1 ,   A M P M : 3 ) ; 
 
               W R I T E ( C H R ( 7 ) ) ; 
 
           E N D . 
 
 
 
 
 
 
 
             9 . 1 . 5 .    '  !" "+  $#&
 
 
 
 
 
 
 
     S U C C ( X ) 
 
                   -   %  "  +",  .  !/   "      "     "; 
 
                        #,""  -   -"  ',   !#.)    %    ( !    "
 
                       "!/) ; 
 
 
 
     P R E D ( X ) 
 
                   -   %  "  +",  .  !/   "      "     ", 
 
                        #,""  -   -"  ',      (!"#.)    %    ( E !    
 
                       !#)!"#") . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 6 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                                                       1 0 .     +
 
 
 
 
 
 
 
 
 
                     /+  !,  "    !/   &# +    
 
     .     !        !            #,       "            #"
 
      !'"+",!/      '        !" &+    !"      +. 
 
     .   "         +    #"!/. 
 
 
 
     <   >   : :   =   <    !  "> / 
 
                                       <       !""> / 
 
                                       <       "> / 
 
                                       <    !   +%> / 
 
                                       <    !   +%  
 
                                                       $#&> / 
 
                                       <     " > 
 
   !&/  !
 
   "  //",!/  !,       "!"    +,     !,",  
 
   ( "$" +)     ",  !  ",       !+. 
 
   !#)!"#"  !,  !!  !,",  #.  !",. 
 
     , 
 
   ",  $+  !  ",+  #/.      " !/&  -"  $+
 
   #"  ' /",!/  !"  !  !    .    #  !, 
 
   !'."!/   !"(  ! !"   "+  !  "  #  !/
 
     !%  . 
 
 
 
                 : 
 
 
 
     $: 
 
                   ( *       $'!  #/  * ) 
 
                   V A R   . . .   ( *   ,+   +  $#&  * ) 
 
                   P R O C E D U R E   ( *   !   $'!%  $#&  * ) 
 
                   P R O C E D U R E   . . . 
 
                   ( *   &   $'!  #/  * ) 
 
     $: 
 
                   ( *   $  !    +  * ) 
 
                   V A R   . . .   ( *   ,+   +  * ) 
 
                   B E G I N   ( *   "!"    +  * )   E N D . 
 
 
 
 
 
 
 
               1 0 . 1 .   !,   !! 
 
 
 
 
 
 
 
               !,,  +  /  ,   "  !",    .'",    
 
     .      !"        +      ",+        $ "+                /+
 
      !! .   '!"    +,   !+         !! , 
 
     #"  !,",   +      +    /+  !,,   %"/
 
     /  -"    " #"!/    "          &!!     &
 
     +/.   /  .'/  $ "        !!     !,#"!/
 
     !&,+    " ,     : 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 7 
 
 
 
                                           
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 5 
 
 
 
 
 
                   P R O C E D U R E   E M T T R A P   ( N : I N T E G E R ) ; 
 
                   B E G I N 
 
                       ( *  C                                     ; '  $ "     
 
                                   M O V   N ( S P ) , - ( S P )   ;  "   " N "   - >     !"
 
                                   E M T   5 3                     ; +",  !"'   E M T 
 
                       * ) 
 
                   E N D           ( *   E M T T R A P * ) 
 
 
 
                    !,     !!     !#"    ",,       '"
 
     !  !'!/  '!+%  !""    #'.  //"!/    1 0 , 
 
         8 . 
 
 
 
 
 
 
 
               1 0 . 2 .   (    $ " !    +  (  &# +) 
 
 
 
 
 
 
 
               +  !,  #!"  !,  " (%"    &#     
 
     $#&,   " +  " ! #."!/  ",    "    !      +. 
 
     -"  /"  !,",  "  #.   ' /  (
 
      &# +        !#)!"/"!/        .'+        !          " E X T E R N A L " . 
 
     !,    .'    !    " F O R T R A N "      "            +#
 
       +    !""!"  !  !(/  !/.)  !!"+    !
 
     /+  $ " / !.   !#"  """,,   '"   '   "     
 
       #    /+  $ "   !#)!"/"!/    !!+,           
 
     '.,   ". .   !     " +    +    +",    ' /+,         V A R 
 
     (  +) . 
 
 
 
                 +: 
 
 
 
                   P R O C E D U R E   E R A S E ;   E X T E R N A L 
 
                   F U N C T I O N   D I F F E R E N C E ( V A R   X , Y : R E A L ) : R E A L ;   F O R T R A N ; 
 
 
 
 